home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / 3DVECT30.ZIP;1 / QB.ZIP / SHADING.BAS < prev   
Encoding:
BASIC Source File  |  1993-10-08  |  744 b   |  41 lines
  1. DECLARE FUNCTION c$ (qq!)
  2.  
  3. x$ = "shading_tables:"
  4. b$ = "  db "
  5.  
  6. r$ = ","
  7.  
  8. PRINT " align 4"
  9. PRINT
  10. PRINT x$
  11.  
  12. DIM x(256)
  13.  
  14.  FOR xa = 0 TO 255
  15.  
  16.    rya = TAN((xa - 128) / 256 * .88) * 16 + 8
  17.  
  18.    x(xa) = INT(rya)
  19.  
  20.  NEXT xa
  21.  
  22.      PRINT b$;
  23.  
  24.  FOR z = 0 TO 255 STEP 16
  25.  
  26.      PRINT c$(x(z)); r$; c$(x(z + 1)); r$; c$(x(z + 2)); r$; c$(x(z + 3)); r$; c$(x(z + 4)); r$;
  27.      PRINT c$(x(z + 5)); r$; c$(x(z + 6)); r$; c$(x(z + 7)); r$;
  28.      PRINT c$(x(z + 8)); r$; c$(x(z + 9)); r$; c$(x(z + 10)); r$; c$(x(z + 11)); r$; c$(x(z + 12)); r$;
  29.      PRINT c$(x(z + 13)); r$; c$(x(z + 14)); r$; c$(x(z + 15))
  30.     
  31.      IF z < 255 - 16 THEN PRINT b$;
  32.  
  33.  NEXT z
  34.  
  35. FUNCTION c$ (qq)
  36.  
  37.  c$ = LTRIM$(RTRIM$(STR$(qq)))
  38.  
  39. END FUNCTION
  40.  
  41.